inherited dtmUserPurview: TdtmUserPurview
  OldCreateOrder = True
  Left = 525
  Top = 222
  Height = 466
  Width = 917
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    BeforeDelete = adsMasterBeforeDelete
    CommandText = 'select * from xt_Users order by UserCode'
    object adsMasterUserCode: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'UserCode'
    end
    object adsMasterUserName: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
    end
    object adsMasterCreateTime: TDateTimeField
      DisplayLabel = #21019#24314#26102#38388
      FieldName = 'CreateTime'
    end
    object adsMasterValidDate: TIntegerField
      DisplayLabel = #26377#25928#26399#38480
      FieldName = 'ValidDate'
    end
    object adsMasterState2: TBooleanField
      DisplayLabel = #20572#29992#21542
      FieldName = 'State'
    end
    object adsMasterUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object adsMasterUserHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'UserHelperCode'
    end
    object adsMasterLoginApp: TBooleanField
      DisplayLabel = #20801#35768#30331#24405#23567#31243#24207'/App'
      FieldName = 'LoginApp'
    end
  end
  inherited frdsMasterEdit: TfrDBDataSet
    Left = 8
    Top = 128
  end
  object adsRole: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeDelete = adsRoleBeforeDelete
    CommandText = 'select * from xt_Role order by RoleCode'
    Parameters = <>
    Left = 144
    Top = 32
    object adsRoleRoleCode: TStringField
      DisplayLabel = #35282#33394#20195#30721
      FieldName = 'RoleCode'
    end
    object adsRoleRoleName: TStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldName = 'RoleName'
      Size = 30
    end
    object adsRoleRemark: TStringField
      DisplayLabel = #35282#33394#35828#26126
      FieldName = 'Remark'
      Size = 30
    end
    object adsRoleRoleID: TIntegerField
      DisplayLabel = #35282#33394'ID'
      FieldName = 'RoleID'
    end
    object adsRoleRoleHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'RoleHelperCode'
      Size = 30
    end
  end
  object aspNewRole: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_NewRole;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@RoleID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@RoleCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@RoleName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@Remark'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end
      item
        Name = '@flag'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 144
    Top = 168
  end
  object adsRoleSet: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from xt_RoleSet where UserID=:UserID'#13#10
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 240
    Top = 32
    object adsRoleSetUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object adsRoleSetRoleID: TIntegerField
      DisplayLabel = #35282#33394'ID'
      FieldName = 'RoleID'
    end
    object adsRoleSetRoleCode: TStringField
      DisplayLabel = #35282#33394#20195#30721
      FieldKind = fkLookup
      FieldName = 'res_RoleCode'
      LookupDataSet = res_Role
      LookupKeyFields = 'RoleID'
      LookupResultField = 'RoleCode'
      KeyFields = 'RoleID'
      Lookup = True
    end
    object adsRoleSetres_RoleName: TStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_RoleName'
      LookupDataSet = res_Role
      LookupKeyFields = 'RoleID'
      LookupResultField = 'RoleName'
      KeyFields = 'RoleID'
      Size = 30
      Lookup = True
    end
    object adsRoleSetRemark: TStringField
      DisplayLabel = #25551#36848
      FieldName = 'Remark'
    end
  end
  object res_Role: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from xt_Role'
    Parameters = <>
    Left = 240
    Top = 96
    object res_RoleRoleID: TIntegerField
      DisplayLabel = #35282#33394'ID'
      FieldName = 'RoleID'
    end
    object StringField1: TStringField
      DisplayLabel = #35282#33394#20195#30721
      FieldName = 'RoleCode'
    end
    object StringField2: TStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldName = 'RoleName'
      Size = 30
    end
    object StringField3: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 30
    end
  end
  object res_Users: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from xt_Users'
    Parameters = <>
    Left = 144
    Top = 96
    object res_UsersUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object StringField4: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'UserCode'
    end
    object StringField5: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 10
    end
    object res_UsersPassWord: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'PassWord'
      Size = 50
    end
    object res_UsersPassWord2: TStringField
      DisplayLabel = #20108#27425#39564#35777#30721
      FieldName = 'PassWord2'
      Size = 50
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #21019#24314#26102#38388
      FieldName = 'CreateTime'
    end
    object IntegerField1: TIntegerField
      DisplayLabel = #26377#25928#26399#38480
      FieldName = 'ValidDate'
    end
    object res_UsersState: TBooleanField
      DisplayLabel = #29366#24577
      FieldName = 'State'
    end
    object res_UsersEmpID: TStringField
      DisplayLabel = #24037#21495
      FieldName = 'EmpID'
    end
    object res_UsersTel: TStringField
      DisplayLabel = #25163#26426
      FieldName = 'Tel'
      Size = 50
    end
    object res_UsersLoginApp: TBooleanField
      DisplayLabel = #20801#35768#30331#24405#23567#31243#24207'/App'
      FieldName = 'LoginApp'
    end
    object res_UsersPDAPassWord: TStringField
      DisplayLabel = 'PDA'#23494#30721
      FieldName = 'PDAPassWord'
      Size = 50
    end
    object res_UsersAppPassWord: TStringField
      DisplayLabel = 'App/'#23567#31243#24207#23494#30721
      FieldName = 'AppPassWord'
      Size = 50
    end
  end
  object adsModule: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select * from xt_Module'#13#10' where isnull(PurviewShow,0)=1'#13#10' order ' +
      'by ModuleNo'
    Parameters = <>
    Left = 336
    Top = 32
  end
  object adsPurviews: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = adsPurviewsAfterOpen
    CommandText = 'select * from V_xt_Purviews where 0=1'
    Parameters = <>
    Left = 56
    Top = 232
    object adsPurviewsRoleID: TIntegerField
      FieldName = 'RoleID'
    end
    object adsPurviewsModuleID: TIntegerField
      FieldName = 'ModuleID'
    end
    object adsPurviewsModuleNo: TStringField
      FieldName = 'ModuleNo'
    end
    object adsPurviewsModuleName: TStringField
      DisplayLabel = #27169#22359#21517#31216
      FieldName = 'ModuleName'
      Size = 40
    end
    object adsPurviewsFunID: TIntegerField
      FieldName = 'FunID'
    end
    object adsPurviewsFunName: TStringField
      FieldName = 'FunName'
      Size = 30
    end
    object adsPurviewsChineseName: TStringField
      DisplayLabel = #21151#33021
      FieldName = 'ChineseName'
      Size = 30
    end
    object adsPurviewsKind: TWordField
      FieldName = 'Kind'
    end
    object adsPurviewsValue: TBooleanField
      DisplayLabel = #26435#38480
      FieldName = 'Value'
    end
  end
  object aspFunctions: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_Functions;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@RoleID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 240
    Top = 168
  end
  object adsFieldPurviews: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = adsFieldPurviewsAfterOpen
    CommandText = 'select * from V_xt_Purviews_Field where 0=1'
    Parameters = <>
    Left = 144
    Top = 232
    object adsFieldPurviewsRoleID: TIntegerField
      FieldName = 'RoleID'
    end
    object adsFieldPurviewsModuleID: TIntegerField
      FieldName = 'ModuleID'
    end
    object adsFieldPurviewsFieldID: TIntegerField
      FieldName = 'FieldID'
    end
    object adsFieldPurviewsFieldName: TStringField
      FieldName = 'FieldName'
      Size = 30
    end
    object adsFieldPurviewsChineseName: TStringField
      DisplayLabel = #23383#27573#21517#31216
      FieldName = 'ChineseName'
      Size = 30
    end
    object adsFieldPurviewsQuery: TBooleanField
      DisplayLabel = #26597#35810
      FieldName = 'Query'
    end
    object adsFieldPurviewsBrowse: TBooleanField
      DisplayLabel = #26597#30475
      FieldName = 'Browse'
    end
    object adsFieldPurviewsEdit: TBooleanField
      DisplayLabel = #20462#25913
      FieldName = 'Edit'
    end
    object adsFieldPurviewsDataSource: TStringField
      DisplayLabel = #31867#21035
      FieldName = 'DataSource'
      Size = 30
    end
  end
  object aspNewUser: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_NewUser;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@UserName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@Password'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@Password2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@PDAPassword'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@AppPassword'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@CreateTime'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@ValidDate'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@State'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@EmpNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@Tel'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@LoginApp'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end
      item
        Name = '@flag'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 56
    Top = 168
  end
  object adsReportPurviews: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adsReportPurviewsAfterOpen
    CommandText = 'select * from V_xt_ReportPurviews where 0=1'
    Parameters = <>
    Left = 240
    Top = 232
    object adsReportPurviewsRoleID: TIntegerField
      FieldName = 'RoleID'
    end
    object adsReportPurviewsRoleCode: TStringField
      FieldName = 'RoleCode'
    end
    object adsReportPurviewsRoleName: TStringField
      FieldName = 'RoleName'
      Size = 30
    end
    object adsReportPurviewsReportID: TIntegerField
      FieldName = 'ReportID'
    end
    object adsReportPurviewsReportNo: TStringField
      FieldName = 'ReportNo'
    end
    object adsReportPurviewsReportName: TStringField
      DisplayLabel = #25253#34920#21517#31216
      FieldName = 'ReportName'
      Size = 50
    end
    object adsReportPurviewsCanPreview: TBooleanField
      DisplayLabel = #39044#35272
      FieldName = 'CanPreview'
    end
    object adsReportPurviewsCanPrint: TBooleanField
      DisplayLabel = #25171#21360
      FieldName = 'CanPrint'
    end
    object adsReportPurviewsCanDesigned: TBooleanField
      DisplayLabel = #35774#35745
      FieldName = 'CanDesigned'
    end
  end
  object adsReports: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeDelete = adsMasterBeforeDelete
    CommandText = 
      'select * from xt_Reports where isnull(State,0)=0 order by Report' +
      'No'
    CommandTimeout = 0
    Parameters = <>
    Left = 432
    Top = 32
    object adsMasterReportID: TIntegerField
      Tag = 1
      FieldName = 'ReportID'
    end
    object adsMasterReportNo: TStringField
      Tag = 1
      FieldName = 'ReportNo'
    end
    object adsMasterReportName: TStringField
      DisplayLabel = #25253#34920#21517#31216
      DisplayWidth = 50
      FieldName = 'ReportName'
      Size = 50
    end
    object adsMasterReportPath: TStringField
      FieldName = 'ReportPath'
      Size = 100
    end
    object adsMasterKind: TWordField
      FieldName = 'Kind'
    end
    object adsMasterParentID: TIntegerField
      Tag = 1
      FieldName = 'ParentID'
    end
    object adsMasterTheReport: TBlobField
      FieldName = 'TheReport'
    end
    object adsMasterState: TWordField
      FieldName = 'State'
    end
    object adsMasterRemark: TStringField
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adsDataPurviews: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = adsDataPurviewsAfterOpen
    CommandText = 'Select * from V_xt_DataPurviews where 0=1'
    Parameters = <>
    Left = 336
    Top = 232
    object adsDataPurviewsID: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'ID'
    end
    object adsDataPurviewsRoleID: TIntegerField
      DisplayLabel = #35282#33394'ID'
      FieldName = 'RoleID'
    end
    object adsDataPurviewsKind: TStringField
      DisplayLabel = #31867#22411'ID'
      FieldName = 'KindID'
      Size = 10
    end
    object adsDataPurviewsKindName2: TStringField
      DisplayLabel = #31867#22411#21517#31216
      FieldName = 'KindName'
      Size = 30
    end
    object adsDataPurviewsDataValue: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'DataValue'
      Size = 30
    end
    object adsDataPurviewsDataName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'DataName'
      ReadOnly = True
      Size = 80
    end
    object adsDataPurviewsPurviewsValue: TStringField
      DisplayLabel = #26435#38480#20540
      FieldName = 'PurviewsValue'
      Size = 4
    end
    object adsDataPurviewsBrowse: TBooleanField
      DisplayLabel = #26597#30475
      FieldName = 'Browse'
      ReadOnly = True
    end
    object adsDataPurviewsAdd: TBooleanField
      DisplayLabel = #28155#21152
      FieldName = 'Add'
      ReadOnly = True
    end
    object adsDataPurviewsEdit: TBooleanField
      DisplayLabel = #20462#25913
      FieldName = 'Edit'
      ReadOnly = True
    end
    object adsDataPurviewsDelete: TBooleanField
      DisplayLabel = #21024#38500
      FieldName = 'Delete'
      ReadOnly = True
    end
    object adsDataPurviewsRemark: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'Remark'
      Size = 30
    end
    object adsDataPurviewstablename: TStringField
      DisplayLabel = #34920#21517
      FieldName = 'tablename'
      Size = 100
    end
  end
  object adsPurviewKinds: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select * from xt_PurviewKinds'
    Parameters = <>
    Left = 432
    Top = 232
    object adsPurviewKindsID: TIntegerField
      FieldName = 'ID'
    end
    object adsPurviewKindsKindName: TStringField
      DisplayLabel = #25968#25454#31867#22411#26126#32454
      FieldName = 'KindName'
      Size = 30
    end
    object adsPurviewKindsTableName: TStringField
      FieldName = 'TableName'
      Size = 30
    end
    object adsPurviewKindsCodeField: TStringField
      FieldName = 'CodeField'
      Size = 30
    end
    object adsPurviewKindsCodeChinese: TStringField
      FieldName = 'CodeChinese'
      Size = 30
    end
    object adsPurviewKindsNameField: TStringField
      FieldName = 'NameField'
      Size = 30
    end
    object adsPurviewKindsNameChinese: TStringField
      FieldName = 'NameChinese'
      Size = 30
    end
    object adsPurviewKindsRemark: TStringField
      FieldName = 'Remark'
      Size = 30
    end
  end
  object adsDataSearch: TADODataSet
    Connection = dtmConnect.conMain
    Parameters = <>
    Left = 432
    Top = 168
  end
  object dspDataPurviews: TDataSetProvider
    DataSet = adsDataPurviews
    Left = 528
    Top = 232
  end
  object cdsDataPurviews: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDataPurviews'
    Left = 336
    Top = 96
    object cdsDataPurviewsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsDataPurviewsRoleID: TIntegerField
      FieldName = 'RoleID'
    end
    object cdsDataPurviewsKindID: TStringField
      FieldName = 'KindID'
      Size = 10
    end
    object cdsDataPurviewsKindName: TStringField
      FieldName = 'KindName'
      Size = 30
    end
    object cdsDataPurviewsDataValue: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'DataValue'
      Size = 30
    end
    object cdsDataPurviewsDataName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'DataName'
      ReadOnly = True
      Size = 30
    end
    object cdsDataPurviewsPurviewsValue: TStringField
      DisplayLabel = #26435#38480#20540
      FieldName = 'PurviewsValue'
      Size = 4
    end
    object cdsDataPurviewsBrowse: TBooleanField
      DisplayLabel = #27983#35272
      FieldName = 'Browse'
      ReadOnly = True
    end
    object cdsDataPurviewsAdd: TBooleanField
      DisplayLabel = #28155#21152
      FieldName = 'Add'
      ReadOnly = True
    end
    object cdsDataPurviewsEdit: TBooleanField
      DisplayLabel = #32534#36753
      FieldName = 'Edit'
      ReadOnly = True
    end
    object cdsDataPurviewsDelete: TBooleanField
      DisplayLabel = #21024#38500
      FieldName = 'Delete'
      ReadOnly = True
    end
    object cdsDataPurviewsRemark: TStringField
      FieldName = 'Remark'
      Size = 30
    end
    object cdsDataPurviewstablename: TStringField
      DisplayLabel = #34920#21517
      FieldName = 'tablename'
      Size = 100
    end
  end
  object aspDataPurviews: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_Ins_DataPurviews;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@RoleID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@KindID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@TableName'
        DataType = ftString
        Size = 50
        Value = ''
      end
      item
        Name = '@DataValue'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@PurviewsValue'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = '@SysFlag'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 432
    Top = 96
  end
  object adsCompanySet: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select * from xt_CompanySet where UserID=:UserID'#13#10
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 528
    Top = 32
    object adsCompanySetUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object adsCompanySetCompanyID: TStringField
      DisplayLabel = #37096#38376'ID'
      FieldName = 'CompanyID'
    end
    object adsCompanySetres_CompanyName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CompanyName'
      LookupDataSet = res_Company
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'CompanyID'
      Size = 50
      Lookup = True
    end
    object adsCompanySetRemark: TStringField
      DisplayLabel = #25551#36848
      FieldName = 'Remark'
    end
  end
  object res_Company: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select DeptID, DeptCode, DeptName, HelperCode  from V_da_Company'
    Parameters = <>
    Left = 528
    Top = 96
    object res_CompanyDeptID: TStringField
      DisplayLabel = #37096#38376'ID'
      FieldName = 'DeptID'
    end
    object res_CompanyDeptCode: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'DeptCode'
      Size = 10
    end
    object res_CompanyDeptName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'DeptName'
      Size = 30
    end
    object res_CompanyHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
  end
  object Adsxt_ValuePurviews: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = Adsxt_ValuePurviewsAfterOpen
    CommandText = 
      'select * from v_xt_ValuePurviews'#13#10'where UserID=:UserID and Modul' +
      'eID=:ModuleID '#13#10
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end
      item
        Name = 'ModuleID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end>
    Left = 528
    Top = 168
    object Adsxt_ValuePurviewsUserID: TIntegerField
      Tag = 1
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object Adsxt_ValuePurviewsModuleID: TIntegerField
      Tag = 1
      DisplayLabel = #27169#22359'ID'
      FieldName = 'ModuleID'
    end
    object Adsxt_ValuePurviewsFunID: TIntegerField
      Tag = 1
      DisplayLabel = #21151#33021'ID'
      FieldName = 'FunID'
    end
    object Adsxt_ValuePurviewsValue: TBCDField
      Tag = 1
      DisplayLabel = #25968#20540
      FieldName = 'Value'
      Precision = 18
    end
    object Adsxt_ValuePurviewsWriter: TStringField
      Tag = 1
      FieldName = 'Writer'
      Size = 10
    end
    object Adsxt_ValuePurviewsWriteTime: TDateTimeField
      Tag = 1
      FieldName = 'WriteTime'
    end
    object Adsxt_ValuePurviewsModifier: TStringField
      Tag = 1
      FieldName = 'Modifier'
      Size = 10
    end
    object Adsxt_ValuePurviewsModifyTime: TDateTimeField
      Tag = 1
      FieldName = 'ModifyTime'
    end
    object Adsxt_ValuePurviewsFunIDName: TStringField
      DisplayLabel = #21151#33021#21517#31216
      FieldName = 'FunIDName'
      Size = 50
    end
  end
  object asp_ValueFunctions: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_ValueFunctions;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = ''
      end>
    Left = 336
    Top = 168
  end
  object aspxt_Ins_DataPurCon: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_Ins_DataPurCon'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Flag'
        DataType = ftInteger
        Value = 0
      end
      item
        Name = '@RoleID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = ''
      end
      item
        Name = '@KindID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = ''
      end
      item
        Name = '@DValue'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = ''
      end
      item
        Name = '@Out_DValue'
        DataType = ftString
        Direction = pdInputOutput
        Size = 10
        Value = ''
      end>
    Left = 56
    Top = 296
  end
  object adsRoleByUser: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select RoleID, RoleCode, RoleName, Remark '#13#10' from V_xt_RoleSet w' +
      'here UserID=:UserID'
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 240
    Top = 296
    object adsRoleByUserRoleCode: TStringField
      DisplayLabel = #35282#33394#20195#30721
      FieldName = 'RoleCode'
    end
    object adsRoleByUserRoleName: TStringField
      DisplayLabel = #35282#33394#21517#31216
      FieldName = 'RoleName'
      Size = 30
    end
    object adsRoleByUserRemark: TStringField
      DisplayLabel = #35282#33394#35828#26126
      FieldName = 'Remark'
      Size = 30
    end
    object adsRoleByUserRoleID: TIntegerField
      DisplayLabel = #35282#33394'ID'
      FieldName = 'RoleID'
    end
  end
  object adsUserByRole: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select * from V_xt_RoleSet where RoleID=:RoleID'
    Parameters = <
      item
        Name = 'RoleID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 336
    Top = 296
    object adsUserByRoleUserCode: TStringField
      DisplayLabel = #29992#25143#20195#30721
      FieldName = 'UserCode'
    end
    object adsUserByRoleUserName: TStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 10
    end
    object adsUserByRoleCreateTime: TDateTimeField
      DisplayLabel = #21019#24314#26102#38388
      FieldName = 'CreateTime'
    end
    object adsUserByRoleValidDate: TIntegerField
      DisplayLabel = #23494#30721#26377#25928#26399
      FieldName = 'ValidDate'
    end
    object adsUserByRoleState: TBooleanField
      DisplayLabel = #20572#29992#21542
      FieldName = 'State'
    end
    object adsUserByRoleUserID: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
  end
  object adqWritePurviewLogs: TADOQuery
    Connection = dtmConnect.conMain
    Parameters = <
      item
        Name = 'ModuleID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'OperKind'
        DataType = ftWord
        Precision = 3
        Size = 1
        Value = Null
      end
      item
        Name = 'PurviewKind'
        DataType = ftWord
        Precision = 3
        Size = 1
        Value = Null
      end
      item
        Name = 'Purviewer'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'Content'
        Attributes = [paLong]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2147483647
        Value = Null
      end
      item
        Name = 'Matter'
        Attributes = [paLong]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2147483647
        Value = Null
      end
      item
        Name = 'Modifier'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'Insert into xt_PurviewLogs(ModuleID, OperKind, PurviewKind, Purv' +
        'iewer, Content, Matter, Modifier, ModifyTime) '
      
        'values (:ModuleID, :OperKind, :PurviewKind, :Purviewer, :Content' +
        ', :Matter, :Modifier, GETDATE())')
    Left = 432
    Top = 296
  end
  object aspCopyUserPurview: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_CopyUserPurview;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@CopyUserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@PasteUserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 500
        Value = Null
      end>
    Left = 56
    Top = 360
  end
  object aspCopyRolePurview: TADOStoredProc
    Connection = dtmConnect.conMain
    ProcedureName = 'xt_CopyRolePurview;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@CopyRoleID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@PasteRoleID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 500
        Value = Null
      end>
    Left = 240
    Top = 360
  end
  object adsCustomer: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select TypeName, ExportTypeName, CustID, CustCode, CustShortName' +
      ', HelperCode,'#13#10' EmpName, FollowerName from V_da_CustAndSupply'#13#10'w' +
      'here isnull(HasCheck,0)=1 and isnull(HasStop,0)=0'#13#10'order by Type' +
      ', ExportType, CustCode'
    Parameters = <>
    Left = 640
    Top = 96
    object adsCustomerTypeName: TStringField
      DisplayLabel = #31867#22411
      DisplayWidth = 10
      FieldName = 'TypeName'
      ReadOnly = True
      Size = 10
    end
    object adsCustomerExportTypeName: TStringField
      DisplayLabel = #20869#22806#38144
      DisplayWidth = 10
      FieldName = 'ExportTypeName'
    end
    object adsCustomerCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsCustomerCustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldName = 'CustCode'
    end
    object adsCustomerCustShortName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustShortName'
      Size = 50
    end
    object adsCustomerHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
    object adsCustomerEmpName: TStringField
      DisplayLabel = #19994#21153#21592
      FieldName = 'EmpName'
    end
    object adsCustomerFollowerName: TStringField
      DisplayLabel = #36319#21333#21592
      FieldName = 'FollowerName'
    end
  end
  object adsStockSet: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsStockSetNewRecord
    CommandText = 'Select * from xt_StockSet where UserID=:UserID'#13#10
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 528
    Top = 296
    object IntegerField2: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object adsStockSetStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsStockSetres_StockCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldKind = fkLookup
      FieldName = 'res_StockCode'
      LookupDataSet = res_Stock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockCode'
      KeyFields = 'StockID'
      Lookup = True
    end
    object adsStockSetres_StockName: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_StockName'
      LookupDataSet = res_Stock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Size = 50
      Lookup = True
    end
    object adsStockSetValue: TBooleanField
      DisplayLabel = #21487#25805#20316
      FieldName = 'Value'
    end
    object StringField8: TStringField
      DisplayLabel = #25551#36848
      FieldName = 'Remark'
    end
  end
  object res_Stock: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select StockID, StockCode, StockName from da_Stock'
    Parameters = <>
    Left = 528
    Top = 360
    object res_StockStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object res_StockStockCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'StockCode'
    end
    object res_StockStockName: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'StockName'
      Size = 50
    end
  end
  object adsEmployee: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select EmpID, EmpName, HelperCode, DutyName, DeptFullName from V' +
      '_da_Employee'#13#10'where isnull(HasCheck,0)=1 and isnull(HasStop,0)=0' +
      #13#10'order by EmpID'
    Parameters = <>
    Left = 160
    Top = 296
    object adsEmployeeEmpID: TStringField
      DisplayLabel = #24037#21495
      DisplayWidth = 10
      FieldName = 'EmpID'
    end
    object adsEmployeeEmpName: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 10
      FieldName = 'EmpName'
    end
    object adsEmployeeHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      DisplayWidth = 10
      FieldName = 'HelperCode'
    end
    object adsEmployeeDutyName: TStringField
      DisplayLabel = #23703#20301
      FieldName = 'DutyName'
      Size = 50
    end
    object adsEmployeeDeptFullName: TStringField
      DisplayLabel = #37096#38376
      FieldName = 'DeptFullName'
      Size = 100
    end
  end
  object adsStock: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select StockID, StockCode, StockName, HelperCode from da_Stock'#13#10 +
      'where isnull(HasCheck,0)=1 and isnull(HasStop,0)=0'#13#10'order by Sto' +
      'ckCode'
    Parameters = <>
    Left = 432
    Top = 360
    object StringField6: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object StringField7: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'StockCode'
    end
    object StringField9: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'StockName'
    end
    object adsStockHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      DisplayWidth = 20
      FieldName = 'HelperCode'
      Size = 50
    end
  end
  object adsCustomerSet: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsCustomerSetNewRecord
    CommandText = 'Select * from xt_CustomerSet where UserID=:UserID'#13#10
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 640
    Top = 32
    object IntegerField3: TIntegerField
      DisplayLabel = #29992#25143'ID'
      FieldName = 'UserID'
    end
    object adsCustomerSetCustID: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsCustomerSetres_CustCode: TStringField
      DisplayLabel = #23458#25143#32534#30721
      FieldKind = fkLookup
      FieldName = 'res_CustCode'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustCode'
      KeyFields = 'CustID'
      Lookup = True
    end
    object adsCustomerSetres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Customer
      LookupKeyFields = 'CustID'
      LookupResultField = 'CustShortName'
      KeyFields = 'CustID'
      Size = 50
      Lookup = True
    end
    object adsCustomerSetValue: TBooleanField
      DisplayLabel = #21487#25805#20316
      FieldName = 'Value'
    end
    object StringField13: TStringField
      DisplayLabel = #25551#36848
      FieldName = 'Remark'
    end
  end
  object res_Customer: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select CustID, CustCode, CustShortName from V_da_CustAndSupply'#13#10
    Parameters = <>
    Left = 640
    Top = 160
  end
  object adsDeptSet: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = adsDeptSetAfterOpen
    CommandText = 
      'Select * from V_xt_DeptSet'#13#10'where isnull(HasStop,0)=0 and'#13#10' User' +
      'ID=:UserID'#13#10'order by DeptID'
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 752
    Top = 96
  end
  object aspCreateUserDeptList: TADOStoredProc
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    ProcedureName = 'xt_NewUserDeptList;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 100
        Value = Null
      end>
    Left = 752
    Top = 32
  end
end
